home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
gfx
/
ifx
/
Saturate.lha
/
Saturation.ifx
< prev
Wrap
Text File
|
1999-01-25
|
494b
|
43 lines
/*
* $VER: Saturation 2.00.00 (24.12.98)
*
* Arexx program for the ImageFX image processing system.
* Written by Neil Huggett
*
*/
OPTIONS RESULTS
Message 'Changing Saturation...'
GetMain
strng=result
strng=DELSTR(strng,1,1)
tmp=index(strng,'"')
strng=DELSTR(strng,1,tmp+1)
wide=WORD(strng,1)
high=WORD(strng,2)
Redraw Off
Message "Buffer is " || wide || " x " || high
ADDRESS command
com='Saturate ' || wide || ' ' || high
com
ADDRESS
Message 'All done!'
Redraw On
EXIT